home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
doom
/
cddk9605.zip
/
HEADERS.ARJ
/
RAFS.INT
< prev
next >
Wrap
Text File
|
1996-05-17
|
1KB
|
39 lines
UNIT RAFs;
{ UNDOCUMENTED UNIT FOR INTERNAL USE ONLY -- USE AT YOUR OWN RISK }
{$B-} { . . . . . . . . . . . . . . . . . . . . Shortcut boolean evaluation }
{$F+} { . . . . . . . . . . . . . . . . . . . . Force far calls for safety }
{$I-} { . . . . . . . . . . . . . . . . . . . Disable input/output checking }
{$O+} { . . . . . . . . . . . . . . . . . . Allow this unit to be overlayed }
{$Q-} { . . . . . . . . . . . . . . Do not generate overflow-checking code }
{$R-} { . . . . . . . . . . . . . . . . Do not generate range-checking code }
{$S-} { . . . . . . . . . . . . . . . . Do not generate stack-checking code }
{$X+} { . . . . . . . . . . . Extended syntax for pChars and function calls }
INTERFACE
TYPE
{ Random Access File Object }
RAF_Type = OBJECT
Count : Word;
Current : Word;
Data : Pointer;
ErrorHalt : Boolean;
IOResult : Word;
RAF : FILE;
Size : Word;
PROCEDURE Close;
FUNCTION EOF:Boolean;
FUNCTION FileSize:LongInt;
PROCEDURE Get(Idx:Word);
PROCEDURE Next;
PROCEDURE Put(Idx:Word);
PROCEDURE Reset(FileSpec:pChar; Sz:Word; Rec:Pointer; FM:Byte; EH:Boolean);
PROCEDURE Rewrite(FileSpec:pChar; Sz:Word; Rec:pointer; FM:Byte; EH:Boolean);
END;